home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / bf018 / checking.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-11-26  |  10.3 KB  |  109 lines
  1. 10  CLEAR,,5120:CLS:KEY 8, "@":ON ERROR GOTO 2310
  2. 20  OPEN "B:CHECKING.ACC" AS 1:FIELD 1, 12 AS A$, 12 AS B$, 12 AS C$, 12 AS D$, 12 AS E$, 12 AS F$, 12 AS G$, 12 AS H$, 12 AS I$:DL$="$$######.##
  3. 60  MODE$=CHR$(27)+CHR$(45)+CHR$(1)+CHR$(27)+CHR$(71)+CHR$(27)+CHR$(78)+CHR$(6):XMOD$=CHR$(27)+CHR$(45)+CHR$(0)+CHR$(27)+CHR$(72):DEFDBL A-Z:DEFINT N,I,J:DIM CHECK%(20), AM(20):IF LOF(1)/128=0 THEN 150 ELSE GET 1,1
  4. 120  COLOR 0,7:PRINT TAB(10) "SET TOP OF PAGE AND TURN ON PRINTER":COLOR 7,0
  5. 130  PRINT:PRINT:GOTO 850
  6. 140  '                     ****************** INITIALIZE CHECKING ACCOUNT FILE
  7. 150  PRINT "  THERE IS NO CHECKING ACCOUNT BALANCE ON FILE-----COPY FILE FROM PREVIOUS DISK OR TURN ON PRINTER AND ENTER OPENING BALANCES BELOW":PRINT
  8. 160  INPUT "OPENING BOOK BALANCE";BB:INPUT "OPENING BANK BALANCE";BAB:INPUT "BOOK BALANCE DATE xx/xx/xx";ND$:INPUT "BANK BALANCE DATE xx/xx/xx";BD$:PRINT:GOSUB 210:GOTO 730
  9. 210  PRINT "     LIST OF OUTSTANDING CHECKS":PRINT:TAM=0:FOR N=1 TO 20:INPUT "OUTSTANDING CHECK NO. (IF FINISHED, ENTER 0)";CHECK%(N):IF CHECK%(1)=0 THEN PRINT TAB(20) "NONE":GOTO 315
  10. 260  IF CHECK%(N)=0 THEN GOTO 315
  11. 270  INPUT "OUTSTANDING CHECK AMOUNT";AM(N):PRINT TAB(10) "CHECK N0. ";:PRINT CHECK%(N);:PRINT SPC(5) USING DL$;AM(N):TAM=TAM+AM(N):NEXT
  12. 315  IF C% THEN 640
  13. 320  PRINT:PRINT "     LIST OF OUTSTANDING DEPOSITS":PRINT:TDP=0:FOR N=1 TO 10:INPUT "OUTSTANDING DEPOSIT (IF FINISHED, ENTER 0)";DEP(N):IF DEP(N)=0 THEN 370 ELSE 390
  14. 370  IF TDP=0 THEN PRINT TAB(10) "NONE"
  15. 380  GOTO 430
  16. 390  INPUT "DATE OF OUTSTANDING DEPOSIT xx/xx/xx";DT$(N):PRINT TAB(10) DT$(N)+"   ";:PRINT USING DL$;DEP(N):TDP=TDP+DEP(N):NEXT
  17. 430  IF REC% THEN 440 ELSE 530
  18. 440  GET 1,1
  19. 450  DIF=MDP+DADJ-TDP+CVD(E$)-CVD(G$)-BDP
  20. 460  IF DIF<-0.005 THEN BEEP:COLOR 0,7:PRINT "  BOOK DEPOSITS ARE";:PRINT USING DL$;ABS(DIF);:PRINT "  LESS THAN BANK DEPOSITS.":PRINT " IF ADJUSTMENT NECESSARY, BE SURE TO ENTER IN NEXT INCOME FILE.":COLOR 7,0:GOTO 480
  21. 470  IF DIF>0.005 THEN BEEP:COLOR 0,7:PRINT "  BOOK DEPOSITS ARE";:PRINT USING DL$;DIF;:PRINT "  MORE THAN BANK DEPOSITS.":PRINT " IF ADJUSTMENT NECESSARY, BE SURE TO ENTER IN NEXT INCOME FILE.":COLOR 7,0 ELSE 540
  22. 480  COLOR 7,0:PRINT:PRINT:PRINT TAB(10) "M=REENTER DEPOSITS PER BANK":PRINT:PRINT TAB(10) "D=REENTER OUTSTANDING DEPOSITS":PRINT:PRINT TAB(10) "A=ADJUSTMENT":PRINT:PRINT
  23. 490  X$=INKEY$:IF X$="M" THEN M%=1:GOTO 1980 ELSE IF X$="D" THEN D%=1:GOTO 320 ELSE IF X$="A" THEN 500 ELSE 490
  24. 500  INPUT "ENTER ADJUSTMENT TO BOOK DEPOSITS ";DADJ:PRINT "ADJUSTMENT TO BOOK DEPOSITS":PRINT:PRINT TAB(10) USING DL$;DADJ:GOTO 450
  25. 530  IF D% THEN 630
  26. 540  PRINT:INPUT "TOTAL BANK CHARGES NOT ENTERED IN MONTHLY EXPENSE FILE (ENTER 0 IF NONE)";B(1):BC=0:PRINT:PRINT "   BANK CHARGES (UNRECORDED)":PRINT SPC(20) USING DL$;B(1):BC=B(1):FOR N=2 TO 5
  27. 590  PRINT:INPUT "BAD CHECK NOT ENTERED IN MONTHLY EXPENSE FILE (ENTER 0 IF NONE)";B(N):IF B(N)=0 THEN 630 ELSE BC=BC+B(N)
  28. 610  PRINT "   BAD CHECK (UNRECORDED)   ";:PRINT USING DL$;B(N):NEXT
  29. 630  IF REC% THEN 640 ELSE 720
  30. 640  DIF=EP-BEP+CVD(D$)+BC+EADJ-TAM-CVD(F$)-CVD(H$)
  31. 650  IF DIF<-0.005 THEN BEEP:COLOR 0,7:PRINT "  BOOK EXPENSES ARE";:PRINT USING DL$;ABS(DIF);:PRINT "  LESS THAN BANK EXPENSES.":PRINT " IF ADJUSTMENT NECESSARY, BE SURE TO ENTER IN NEXT EXPENSE FILE.":COLOR 7,0:GOTO 670
  32. 660  IF DIF>0.005 THEN BEEP:COLOR 0,7:PRINT "  BOOK EXPENSES ARE";:PRINT USING DL$;DIF;:PRINT "  MORE THAN BANK EXPENSES.":PRINT " IF ADJUSTMENT NECESSARY, BE SURE TO ENTER IN NEXT EXPENSE FILE.":COLOR 7,0 ELSE 720
  33. 670  COLOR 7,0:PRINT:PRINT:PRINT TAB(10) "M=REENTER EXPENSES PER BANK":PRINT:PRINT TAB(10) "C=REENTER OUTSTANDING CHECKS":PRINT:PRINT TAB(10) "B=REENTER OUTSTANDING BANK CHARGES OR BAD CHECKS":PRINT:PRINT TAB(10) "A=ADJUSTMENT":PRINT:PRINT
  34. 680  X$=INKEY$:IF X$="M" THEN M%=1:GOTO 2000 ELSE IF X$="C" THEN FOR N=1 TO 20:CHECK%(N)=0:AM(N)=0:NEXT N:C%=1:GOTO 210 ELSE IF X$="B" THEN FOR N=1 TO 5:B(N)=0:NEXT N:B%=1:GOTO 540:ELSE IF X$="A" THEN 690 ELSE 680
  35. 690  INPUT "ENTER ADJUSTMENT TO EXPENSES  ";EADJ:PRINT "ADJUSTMENT TO BOOK EXPENSES":PRINT:PRINT TAB(10) USING DL$;EADJ:GOTO 640
  36. 720  RETURN
  37. 730  IF ABS(BAB-BB-TAM+TDP+BC)>0.005 THEN TAM=0:TDP=0:BC=0:COLOR 0,7:PRINT "AMOUNTS OUT OF BALANCE---RECHCECK FIGURES AND REENTER":COLOR 7,0:PRINT:GOTO 160
  38. 740  LSET A$=MKD$(BB):LSET B$=MKD$(BAB):LSET C$=ND$:LSET D$=MKD$(TAM):LSET E$=MKD$(TDP):LSET F$=MKD$(BC):LSET G$=MKD$(DADJ):LSET H$=MKD$(EADJ):LSET I$=BD$:PUT 1,1:GOSUB 910:GOTO 2170
  39. 850  PRINT "      CHOOSE":PRINT:PRINT TAB(10)"M=RETURN TO MENU":PRINT:PRINT TAB(10) "B=CURRENT BOOK BALANCE (ONLY IF ADJUSTMENTS AND UNRECORDED CHARGES":PRINT TAB(34) "HAVE BEEN ENTERED IN EXPENSE AND INCOME FILES)":PRINT
  40. 870  PRINT TAB(10) "C=RECONCILE BANK BALANCE":PRINT:PRINT TAB(10) "R=READ LAST RECONCILIATION":PRINT:PRINT TAB(10) "P=PRINT AND READ LAST RECONCILIATION"
  41. 880  X$=INKEY$:DEF SEG=64:POKE 23, (PEEK(23) OR 64):IF X$="B" THEN 1620 ELSE IF X$="C" THEN REC%=1:FL$="CHECKING.ACC":GOSUB 30210:GOTO 1900 ELSE IF X$="R" THEN 910 ELSE IF X$="P" THEN PRT%=1:GOTO 910 ELSE IF X$="M" THEN RUN "BKPG.BAS" ELSE 880
  42. 910  CLS:GET 1,1:FIELD 1, 12 AS A$, 12 AS B$, 12 AS C$, 12 AS D$, 12 AS E$, 12 AS F$, 12 AS G$, 12 AS H$, 12 AS I$:PRINT "RECONCILED - BANK CLOSING DATE  "+I$+"     BOOK CLOSING DATE  "+C$:PRINT:PRINT TAB(10) "BOOK BALANCE" SPC(27);
  43. 960  PRINT USING DL$;CVD(A$):PRINT TAB(10) "BANK BALANCE                           ";:PRINT USING DL$;CVD(B$):IF REC% THEN PRINT TAB(10) "BOOK  MONTHLY DEPOSITS"SPC(18); ELSE 1070
  44. 1000  PRINT USING DL$;MDP:PRINT TAB(10) "BANK  MONTHLY DEPOSITS                  ";:PRINT USING DL$;BDP:PRINT TAB(10) "BOOK  MONTHLY EXPENSES                  ";:PRINT USING DL$;EP:PRINT TAB(10) "BANK  MONTHLY EXPENSES                  ";
  45. 1060  PRINT USING DL$;BEP
  46. 1070  PRINT TAB(10) "OUTSTANDING CHECKS                     ";:PRINT USING DL$;CVD(D$):PRINT TAB(10) "OUTSTANDING DEPOSITS                   ";:PRINT USING DL$;CVD(E$):PRINT TAB(10) "BANK CHARGES & BAD CHECKS (UNRECORDED) ";:PRINT USING DL$;CVD(F$)
  47. 1130  PRINT TAB(10) "ADJUSTMENTS TO DEPOSITS                ";:PRINT USING DL$;CVD(G$):PRINT TAB(10) "ADJUSTMENTS TO EXPENSES                ";:PRINT USING DL$;CVD(H$):PRINT:IF PRT% THEN 1180 ELSE 850
  48. 1180  LPRINT CHR$(27)CHR$(78)CHR$(6):LPRINT MODE$:LPRINT "RECONCILED - BANK CLOSING DATE  "+I$+"     BOOK CLOSING DATE  "+C$:LPRINT:LPRINT:LPRINT TAB(5) "BOOK BALANCE                                         ";:LPRINT USING DL$;CVD(A$)
  49. 1210  LPRINT TAB(5) "BANK BALANCE                                         ";:LPRINT USING DL$;CVD(B$):IF REC% THEN LPRINT TAB(5) "BOOK  MONTHLY DEPOSITS"SPC(31); ELSE 1310
  50. 1240  LPRINT USING DL$;MDP:LPRINT TAB(5) "BANK  MONTHLY DEPOSITS                               ";:LPRINT USING DL$;BDP:LPRINT TAB(5) "BOOK  MONTHLY EXPENSES                               ";:LPRINT USING DL$;EP
  51. 1290  LPRINT TAB(5) "BANK  MONTHLY EXPENSES                               ";:LPRINT USING DL$;BEP
  52. 1310  LPRINT TAB(5) "OUTSTANDING CHECKS                                   ";:LPRINT USING DL$;CVD(D$):LPRINT TAB(5) "OUTSTANDING DEPOSITS                                 ";:LPRINT USING DL$;CVD(E$)
  53. 1350  LPRINT TAB(5) "BANK CHARGES & BAD CHECKS (UNRECORDED)               ";:LPRINT USING DL$;CVD(F$):LPRINT TAB(5) "ADJUSTMENTS TO DEPOSITS                              ";:LPRINT USING DL$;CVD(G$)
  54. 1390  LPRINT TAB(5) "ADJUSTMENTS TO EXPENSES                              ";:LPRINT USING DL$;CVD(H$):IF PRT% =1 THEN 850
  55. 1420  LPRINT MODE$:LPRINT "     LIST OF OUTSTANDING CHECKS":LPRINT XMOD$:FOR N=1 TO 20:IF CHECK%(1)=0 THEN LPRINT "     NONE":GOTO 1470
  56. 1450  IF CHECK%(N)=0 THEN 1470 ELSE LPRINT TAB(10) "CHECK NO.  ";:LPRINT CHECK%(N);
  57. 1460  LPRINT SPC(5) USING DL$;AM(N):NEXT
  58. 1470  LPRINT MODE$:LPRINT "     LIST OF OUTSTANDING DEPOSITS":LPRINT XMOD$:FOR N=1 TO 10:IF DT$(1)="" THEN LPRINT "     NONE":GOTO 1500 ELSE IF DT$(N)="" THEN 1500 ELSE LPRINT TAB(13) DT$(N)+"            ";
  59. 1490  LPRINT USING DL$;DEP(N):NEXT
  60. 1500  IF DADJ<0.005 THEN 1510 ELSE LPRINT MODE$:LPRINT "     ADJUSTMENT TO BOOK DEPOSITS (ENTER IN NEXT INCOME FILE)":LPRINT XMOD$:LPRINT SPC(31) USING DL$;DADJ
  61. 1510  IF EADJ<0.005 THEN 1520 ELSE LPRINT MODE$:LPRINT "     ADJUSTMENT TO BOOK EXPENSES (ENTER IN NEXT EXPENSE FILE)":LPRINT XMOD$:LPRINT SPC(10) USING DL$;EADJ
  62. 1520  IF B(1)<0.005 THEN 1540 ELSE LPRINT MODE$:LPRINT "     BANK CHARGES (UNRECORDED--ENTER IN NEXT EXPENSE FILE)":LPRINT XMOD$
  63. 1530  LPRINT SPC(31) USING DL$;B(1)
  64. 1540  FOR N=2 TO 5:IF N>2 THEN IF B(N) <0.005 THEN 1580 ELSE LPRINT SPC(31) USING DL$;B(N):GOTO 1570
  65. 1560  IF B(N)<0.005 THEN 1580 ELSE LPRINT MODE$:LPRINT "     BAD CHECK    (UNRECORDED--ENTER IN NEXT EXPENSE FILE)";:LPRINT XMOD$:LPRINT SPC(31) USING DL$;B(N)
  66. 1570  NEXT
  67. 1580  IF ABS(TADJ)<0.005 THEN 1610
  68. 1590  LPRINT:LPRINT TAB(6) MODE$+TADJ$+" BALANCE ADJUSTED BY  "+XMOD$;:LPRINT USING DL$;TADJ:LPRINT:LPRINT "REASON FOR ADJUSTMENT: "+REAS$
  69. 1610  RETURN
  70. 1620  CLS:OPEN "B:EXPENSE.CUR" AS 2:FIELD 2, 8 AS D$, 8 AS C$, 25 AS B$, 9 AS A$, 18 AS E$:FOR N=2 TO LOF(2)/128:GET 2,N:IF ASC(E$)=42 THEN 1690
  71. 1680  AM=AM+CVD(A$):IF D$="        " THEN 1690
  72. 1687  DA1$=D$
  73. 1690  NEXT:CLOSE 2:OPEN "B:INCOME.CUR" AS 2:FIELD 2, 8 AS D$, 10 AS B$:FOR N=2 TO LOF(2)/128:GET 2,N:DP=DP+CVD(B$):NEXT:DA2$=D$:CLOSE 2:FIELD 1, 12 AS DD$:GET 1, 3:MDP=CVD(DD$):FIELD 1, 12 AS ZZ$:GET 1, 2:EP=CVD(ZZ$)
  74. 1800  FIELD 1, 12 AS A$, 12 AS B$, 12 AS C$, 12 AS D$, 12 AS E$, 12 AS F$, 12 AS G$, 12 AS H$, 12 AS I$:GET 1,1:BB=CVD(A$)+DP-AM-CVD(G$)+CVD(H$)+CVD(F$)+MDP-EP:PRINT "   BOOK BALANCE AS OF---EXPENSES  "+DA1$+"   INCOME  "+DA2$
  75. 1840  PRINT SPC(3) USING DL$;BB
  76. 1850  INPUT "TO PRINT, TURN ON PRINTER AND ENTER  P  ELSE JUST PRESS ENTER";PR$:IF PR$="" THEN 1890 ELSE IF PR$="P" THEN 1870 ELSE 1850
  77. 1870  LPRINT:LPRINT "   BOOK BALANCE AS OF---EXPENSES  "+DA1$+"   INCOME  "+DA2$:LPRINT USING DL$;BB
  78. 1890  CLOSE:CLEAR:LOAD "BKPG.BAS",R
  79. 1900  CLS:COLOR 0,7:PRINT "   INCOME AND EXPENSE FILES MUST BE CLOSED OUT FOR THE MONTH":PRINT:PRINT "IF THEY HAVE NOT      PRESS M TO RETURN TO MENU   ELSE   PRESS C TO CONTINUE  ":COLOR 7,0
  80. 1920  X$=INKEY$:DEF SEG=64:POKE 23, (PEEK(23) OR 64):IF X$="M" THEN RUN "BKPG.BAS" ELSE IF X$="C" THEN CLS:GOTO 1950 ELSE 1920
  81. 1950  INPUT "DATE BANK STATEMENT CLOSED";BD$:INPUT "DATE BOOKS CLOSED";ND$:FIELD 1, 12 AS DD$:GET 1, 3:MDP=CVD(DD$)
  82. 1980  INPUT "DEPOSITS FOR MONTH PER BANK";BDP:IF M%=1 THEN 450
  83. 1982  FIELD 1, 12 AS ZZ$:GET 1, 2:EP=CVD(ZZ$)
  84. 2000  INPUT "EXPENSES FOR MONTH PER BANK";BEP:IF M% THEN 630
  85. 2010  INPUT "BANK BALANCE";BAB:GOSUB 210:GET 1,1:FIELD 1, 12 AS A$, 12 AS B$, 12 AS C$, 12 AS D$, 12 AS E$, 12 AS F$, 12 AS G$, 12 AS H$, 12 AS I$:BB=CVD(A$)+MDP-EP+DADJ-EADJ-CVD(G$)+CVD(H$)-BC+CVD(F$)
  86. 2050  IF ABS(BAB-BB-TAM+TDP)<0.005 THEN PRT%=2:GOTO 740 ELSE 2060
  87. 2060  PRINT:COLOR 0,7:BEEP:PRINT "     ERROR---NOT RECONCILED          ":COLOR 7,0:PRINT:PRINT "OLD BOOK BALANCE      +DEPOSITS      -EXPENSES      =NEW BOOK BALANCE":PRINT USING "$$###########.##";CVD(A$),MDP,EP,BB
  88. 2090  PRINT "  NEW BOOK BAL. +OUTSTAND. CHECKS-OUTSTAND. DEPOSIT=TRIAL BAL.":PRINT USING "$$##########.##";BB,TAM,TDP,BB+TAM-TDP:PRINT "     TRIAL BALANCE   DOES NOT EQUAL    BANK BALANCE"
  89. 2120  PRINT USING "$$##########.##";BB+TAM-TDP-BC;:PRINT SPC(32);:PRINT BAB:PRINT TAB(10) "O=RETURN TO OPTIONS AND START OVER":PRINT:PRINT TAB(10) "A=ADJUSTMENT NECESSARY"
  90. 2140  X$=INKEY$:DEF SEG=64:POKE 23, (PEEK(23) OR 64):IF X$="O" THEN 10 ELSE IF X$="A" THEN 2210 ELSE 2140
  91. 2170  PRINT "P=PRINT AGAIN":PRINT "M=RETURN TO MENU":PRINT "B=CURRENT BOOK BALANCE (ONLY IF NEW EXPENSE AND INCOME FILES HAVE BEEN OPENED)":LPRINT CHR$(12)
  92. 2190  X$=INKEY$:IF X$="P" THEN PRT%=2:GOSUB 1180:GOTO 2170 ELSE IF X$="M" AND REC%=1 THEN 2201 ELSE IF X$="M" THEN 2209 ELSE IF X$="B" THEN 2201 ELSE 2190
  93. 2201  FIELD 1, 12 AS DD$:LSET DD$=MKD$(0):PUT 1, 3:FIELD 1, 12 AS ZZ$:LSET ZZ$=MKD$(0):PUT 1, 2:IF X$="B" THEN 1620
  94. 2209  RUN "BKPG.BAS"
  95. 2210  INPUT "CORRECT BOOK BALANCE";BB:INPUT "CORRECT BANK BALANCE";BAB:IF ABS(BAB-BB-TAM+TDP)>0.005 THEN COLOR 0,7:PRINT "AMOUNTS OUT OF BALANCE---RECHCECK FIGURES AND REENTER":COLOR 7,0:GOTO 2210
  96. 2240  INPUT "                           REASON FOR ADJUSTMENT (MAXIMUM 3 LINES)             ";REAS$:PRINT "      ENTER  A IF BOOK BALANCE ADJUSTED":PRINT "       ENTER B IF BANK BALANCE ADJUSTED":DEF SEG=64:POKE 23, (PEEK(23) OR 64)
  97. 2270  TADJ$=INKEY$:IF TADJ$="A" THEN TADJ$="BOOK" ELSE IF TADJ$="B" THEN TADJ$="BANK" ELSE 2270
  98. 2290  INPUT "AMOUNT OF ADJUSTMENT (ENTER AS + OR -) ";TADJ:PRT%=2:GOTO 740
  99. 2310  IF ERR=71 THEN COLOR 0,7:PRINT "     FILE DISK NOT IN DRIVE B OR PROGRAM DISK NOT IN DRIVE A OR DOOR IS OPEN.        CORRECT PROBLEM AND PRESS  F8  WHEN READY    ":GOTO 2350
  100. 2330  IF ERR=24 OR ERR=27 THEN COLOR 0,7:PRINT "     PRINTER NOT ON OR OUT OF PAPER.  SET TOP OF PAGE AND TURN ON PRINTER.           PRESS F8 WHEN READY     ":GOTO 2350
  101. 2350  X$=INKEY$:IF X$<>"@" THEN 2350 ELSE DEF SEG:POKE 160,0:COLOR 7,0:CLS:RESUME
  102. 30200  '
  103. 30210  IF BKUP THEN 30220 ELSE OPEN "B:BACKUP.FIL" AS 4:BKUP=1
  104. 30220  FIELD 4, 14 AS A$:IF LOF(4)/128=0 THEN 30280
  105. 30240  FOR N=1 TO LOF(4)/128:GET 4,N:IF FL$+STRING$(14-LEN(FL$),32)=A$ THEN 30300
  106. 30270  NEXT
  107. 30280  LSET A$=FL$:PUT 4, LOF(4)/128+1
  108. 30300  RETURN
  109.